home *** CD-ROM | disk | FTP | other *** search
/ Aminet 41 / Aminet 41 (2001)(Schatztruhe)[!][Feb 2001].iso / Aminet / comm / misc / ClipWatch.lha / ClipWatch / Sources / ClipWatch_Gui.c next >
C/C++ Source or Header  |  2000-12-26  |  27KB  |  1,139 lines
  1. #ifndef MAKE_ID
  2. #define MAKE_ID(a,b,c,d) ((ULONG) (a)<<24 | (ULONG) (b)<<16 | (ULONG) (c)<<8 | (ULONG) (d))
  3. #endif
  4.  
  5. #ifdef _DCC
  6. #define __inline
  7. #endif
  8.  
  9. #include "ClipWatch_Gui.h"
  10. #include "ClipWatch_GuiExtern.c" //MLD .h=>.c
  11.  
  12.  
  13. struct ObjApp * CreateApp(void)
  14. {
  15.     struct ObjApp * Object;
  16.  
  17.     APTR    MNlabel1Project, MNlabel1About, MNlabel1AboutMUI, MNlabel1BarLabel0;
  18.     APTR    MNlabel1Quit, MNlabel1Settings, MNlabel1Prefs, MNlabel1PrefsMUI, GROUP_ROOT_0;
  19.     APTR    GR_grp_INFOS, SiteNameLI, GR_grp_TELPSW, obj_aux0, obj_aux1, obj_aux2;
  20.     APTR    obj_aux3, GR_grp_VISU, Messages, obj_aux4, obj_aux5, obj_aux6, obj_aux7;
  21.     APTR    obj_aux8, obj_aux9, obj_aux10, obj_aux11, obj_aux12, obj_aux13, obj_aux14;
  22.     APTR    obj_aux15, obj_aux16, obj_aux17, obj_aux18, obj_aux19, Space_1, Etats;
  23.     APTR    Journal, Traces, GR_TRACES_SEL, GR_TRACES_TEMPS, TracesNumerique;
  24.     APTR    TracesGraphique, GR_grp_CNX, GROUP_ROOT_1, obj_aux20, obj_aux21, GR_grp_DeviceUnit;
  25.     APTR    obj_aux22, obj_aux23, Space_9, obj_aux24, obj_aux25, GR_grp_Vitesse;
  26.     APTR    LA_label_vitesse, LA_label_bps, SpaceH_1, SpaceV_1, REC_label_6CC;
  27.     APTR    SpaceV_2, GR_grp_Journal, obj_aux26, obj_aux27, SpaceH_2, GR_grp_Traces;
  28.     APTR    obj_aux28, obj_aux29, SpaceH_3, GR_grp_Messages, obj_aux30, obj_aux31;
  29.     APTR    SpaceH_4, GR_grp_Monitor, obj_aux32, obj_aux33, SpaceV_3, REC_label_6;
  30.     APTR    SpaceV_4, GR_grp_Validation, GROUP_ROOT_2, GR_grp_25;
  31.     static const struct Hook DisplayHookRessourcesHook = { { NULL,NULL },(VOID *)DisplayHookRessources,NULL,NULL };
  32.     static const struct Hook DisplayHookEvenementsHook = { { NULL,NULL },(VOID *)DisplayHookEvenements,NULL,NULL };
  33.     static const struct Hook DisplayHookTraceNumHook = { { NULL,NULL },(VOID *)DisplayHookTraceNum,NULL,NULL };
  34.  
  35.  
  36.     if (!(Object = AllocVec(sizeof(struct ObjApp), MEMF_PUBLIC|MEMF_CLEAR)))
  37.         return(NULL);
  38.  
  39.     Object->STR_SiteName = NULL;
  40.     Object->STR_Type = NULL;
  41.     Object->STR_Version = NULL;
  42.     Object->STR_Date = "01/01/78";
  43.     Object->STR_Time = "00:00:00";
  44.     Object->STR_ComState = "Prêt...";
  45.     Object->STR_ComTime = "--:--";
  46.  
  47.     Object->STR_GR_grp_VISU[0] = "Messages";
  48.     Object->STR_GR_grp_VISU[1] = "Etats";
  49.     Object->STR_GR_grp_VISU[2] = "Journal";
  50.     Object->STR_GR_grp_VISU[3] = "Traces";
  51.     Object->STR_GR_grp_VISU[4] = NULL;
  52.     Object->ChoixTracesContent[0] = "Trace n°xx";
  53.     Object->ChoixTracesContent[1] = NULL;
  54.     Object->Trace_RangeContent[0] = "1 Jour";
  55.     Object->Trace_RangeContent[1] = "2 Jours";
  56.     Object->Trace_RangeContent[2] = "1 Semaine";
  57.     Object->Trace_RangeContent[3] = "1 Mois";
  58.     Object->Trace_RangeContent[4] = "Autre";
  59.     Object->Trace_RangeContent[5] = NULL;
  60.     Object->STR_GR_TRACES_MODE[0] = "Numérique";
  61.     Object->STR_GR_TRACES_MODE[1] = "Graphique";
  62.     Object->STR_GR_TRACES_MODE[2] = NULL;
  63.     Object->Prefs_VitesseContent[0] = "300";
  64.     Object->Prefs_VitesseContent[1] = "1200";
  65.     Object->Prefs_VitesseContent[2] = "2400";
  66.     Object->Prefs_VitesseContent[3] = "4800";
  67.     Object->Prefs_VitesseContent[4] = "9600";
  68.     Object->Prefs_VitesseContent[5] = NULL;
  69.     Object->Prefs_Monitor_TypeContent[0] = "ASCII";
  70.     Object->Prefs_Monitor_TypeContent[1] = "HEX";
  71.     Object->Prefs_Monitor_TypeContent[2] = "ASCII+HEX";
  72.     Object->Prefs_Monitor_TypeContent[3] = NULL;
  73.  
  74.     SiteNameLI = Label("Site");
  75.  
  76.     Object->SiteName = TextObject,
  77.         MUIA_Weight, 60,
  78.         MUIA_Background, MUII_TextBack,
  79.         MUIA_Frame, MUIV_Frame_Text,
  80.         MUIA_Text_Contents, Object->STR_SiteName,
  81.         MUIA_Text_SetMin, TRUE,
  82.     End;
  83.  
  84.     Object->SelectSiteSaved = TextObject,
  85.         ButtonFrame,
  86.         MUIA_Weight, 7,
  87.         MUIA_Background, MUII_ButtonBack,
  88.         MUIA_Text_Contents, "««",
  89.         MUIA_Text_PreParse, "\033c",
  90.         MUIA_HelpNode, "SelectSiteSaved",
  91.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  92.     End;
  93.  
  94.     Object->Type = TextObject,
  95.         MUIA_Weight, 30,
  96.         MUIA_Background, MUII_TextBack,
  97.         MUIA_Frame, MUIV_Frame_Text,
  98.         MUIA_Text_Contents, Object->STR_Type,
  99.         MUIA_Text_SetMin, TRUE,
  100.     End;
  101.  
  102.     Object->Version = TextObject,
  103.         MUIA_Weight, 15,
  104.         MUIA_Background, MUII_TextBack,
  105.         MUIA_Frame, MUIV_Frame_Text,
  106.         MUIA_Text_Contents, Object->STR_Version,
  107.         MUIA_Text_SetMin, TRUE,
  108.     End;
  109.  
  110.     Object->Date = TextObject,
  111.         MUIA_Weight, 20,
  112.         MUIA_Background, MUII_TextBack,
  113.         MUIA_Frame, MUIV_Frame_Text,
  114.         MUIA_Text_Contents, Object->STR_Date,
  115.         MUIA_Text_SetMin, TRUE,
  116.     End;
  117.  
  118.     Object->Time = TextObject,
  119.         MUIA_Weight, 20,
  120.         MUIA_Background, MUII_TextBack,
  121.         MUIA_Frame, MUIV_Frame_Text,
  122.         MUIA_Text_Contents, Object->STR_Time,
  123.         MUIA_Text_SetMin, TRUE,
  124.     End;
  125.  
  126.     GR_grp_INFOS = GroupObject,
  127.         MUIA_HelpNode, "GR_grp_INFOS",
  128.         MUIA_Group_Horiz, TRUE,
  129.         MUIA_Group_SameHeight, TRUE,
  130.         Child, SiteNameLI,
  131.         Child, Object->SiteName,
  132.         Child, Object->SelectSiteSaved,
  133.         Child, Object->Type,
  134.         Child, Object->Version,
  135.         Child, Object->Date,
  136.         Child, Object->Time,
  137.     End;
  138.  
  139.     Object->NumTelephone = StringObject,
  140.         MUIA_Frame, MUIV_Frame_String,
  141.         MUIA_HelpNode, "NumTelephone",
  142.     End;
  143.  
  144.     obj_aux1 = Label2("NumTéléphone");
  145.  
  146.     obj_aux0 = GroupObject,
  147.         MUIA_Group_Columns, 2,
  148.         Child, obj_aux1,
  149.         Child, Object->NumTelephone,
  150.     End;
  151.  
  152.     Object->Password = StringObject,
  153.         MUIA_Frame, MUIV_Frame_String,
  154.         MUIA_HelpNode, "Password",
  155.         MUIA_String_Secret, TRUE,
  156.     End;
  157.  
  158.     obj_aux3 = Label2("MotDePasse");
  159.  
  160.     obj_aux2 = GroupObject,
  161.         MUIA_Group_Columns, 2,
  162.         Child, obj_aux3,
  163.         Child, Object->Password,
  164.     End;
  165.  
  166.     GR_grp_TELPSW = GroupObject,
  167.         MUIA_HelpNode, "GR_grp_TELPSW",
  168.         MUIA_Group_Columns, 2,
  169.         Child, obj_aux0,
  170.         Child, obj_aux2,
  171.     End;
  172.  
  173.     Object->MessageTextNum0 = StringObject,
  174.         MUIA_Frame, MUIV_Frame_String,
  175.         MUIA_HelpNode, "MessageTextNum0",
  176.         MUIA_String_MaxLen, 255,
  177.     End;
  178.  
  179.     obj_aux5 = Label2("0");
  180.  
  181.     obj_aux4 = GroupObject,
  182.         MUIA_Group_Columns, 2,
  183.         Child, obj_aux5,
  184.         Child, Object->MessageTextNum0,
  185.     End;
  186.  
  187.     Object->MessageTextNum1 = StringObject,
  188.         MUIA_Frame, MUIV_Frame_String,
  189.         MUIA_HelpNode, "MessageTextNum1",
  190.         MUIA_String_MaxLen, 255,
  191.     End;
  192.  
  193.     obj_aux7 = Label2("1");
  194.  
  195.     obj_aux6 = GroupObject,
  196.         MUIA_Group_Columns, 2,
  197.         Child, obj_aux7,
  198.         Child, Object->MessageTextNum1,
  199.     End;
  200.  
  201.     Object->MessageTextNum2 = StringObject,
  202.         MUIA_Frame, MUIV_Frame_String,
  203.         MUIA_HelpNode, "MessageTextNum2",
  204.         MUIA_String_MaxLen, 255,
  205.     End;
  206.  
  207.     obj_aux9 = Label2("2");
  208.  
  209.     obj_aux8 = GroupObject,
  210.         MUIA_Group_Columns, 2,
  211.         Child, obj_aux9,
  212.         Child, Object->MessageTextNum2,
  213.     End;
  214.  
  215.     Object->MessageTextNum3 = StringObject,
  216.         MUIA_Frame, MUIV_Frame_String,
  217.         MUIA_HelpNode, "MessageTextNum3",
  218.         MUIA_String_MaxLen, 255,
  219.     End;
  220.  
  221.     obj_aux11 = Label2("3");
  222.  
  223.     obj_aux10 = GroupObject,
  224.         MUIA_Group_Columns, 2,
  225.         Child, obj_aux11,
  226.         Child, Object->MessageTextNum3,
  227.     End;
  228.  
  229.     Object->MessageTextNum4 = StringObject,
  230.         MUIA_Frame, MUIV_Frame_String,
  231.         MUIA_HelpNode, "MessageTextNum4",
  232.         MUIA_String_MaxLen, 255,
  233.     End;
  234.  
  235.     obj_aux13 = Label2("4");
  236.  
  237.     obj_aux12 = GroupObject,
  238.         MUIA_Group_Columns, 2,
  239.         Child, obj_aux13,
  240.         Child, Object->MessageTextNum4,
  241.     End;
  242.  
  243.     Object->MessageTextNum5 = StringObject,
  244.         MUIA_Frame, MUIV_Frame_String,
  245.         MUIA_HelpNode, "MessageTextNum5",
  246.         MUIA_String_MaxLen, 255,
  247.     End;
  248.  
  249.     obj_aux15 = Label2("5");
  250.  
  251.     obj_aux14 = GroupObject,
  252.         MUIA_Group_Columns, 2,
  253.         Child, obj_aux15,
  254.         Child, Object->MessageTextNum5,
  255.     End;
  256.  
  257.     Object->MessageTextNum6 = StringObject,
  258.         MUIA_Frame, MUIV_Frame_String,
  259.         MUIA_HelpNode, "MessageTextNum6",
  260.         MUIA_String_MaxLen, 255,
  261.     End;
  262.  
  263.     obj_aux17 = Label2("6");
  264.  
  265.     obj_aux16 = GroupObject,
  266.         MUIA_Group_Columns, 2,
  267.         Child, obj_aux17,
  268.         Child, Object->MessageTextNum6,
  269.     End;
  270.  
  271.     Object->MessageTextNum7 = StringObject,
  272.         MUIA_Frame, MUIV_Frame_String,
  273.         MUIA_HelpNode, "MessageTextNum7",
  274.         MUIA_String_MaxLen, 255,
  275.     End;
  276.  
  277.     obj_aux19 = Label2("7");
  278.  
  279.     obj_aux18 = GroupObject,
  280.         MUIA_Group_Columns, 2,
  281.         Child, obj_aux19,
  282.         Child, Object->MessageTextNum7,
  283.     End;
  284.  
  285.     Space_1 = HVSpace;
  286.  
  287.     Messages = VirtgroupObject,
  288.         VirtualFrame,
  289.         MUIA_HelpNode, "Messages",
  290.         Child, obj_aux4,
  291.         Child, obj_aux6,
  292.         Child, obj_aux8,
  293.         Child, obj_aux10,
  294.         Child, obj_aux12,
  295.         Child, obj_aux14,
  296.         Child, obj_aux16,
  297.         Child, obj_aux18,
  298.         Child, Space_1,
  299.     End;
  300.  
  301.     Messages = ScrollgroupObject,
  302.         MUIA_Scrollgroup_Contents, Messages,
  303.     End;
  304.  
  305.     Object->ListEtats = ListObject,
  306.         MUIA_Frame, MUIV_Frame_InputList,
  307.         MUIA_List_Title, TRUE,
  308.         MUIA_List_Format, "BAR,BAR,",
  309.         MUIA_List_DisplayHook, &DisplayHookRessourcesHook,
  310.     End;
  311.  
  312.     Object->ListEtats = ListviewObject,
  313.         MUIA_HelpNode, "ListEtats",
  314.         MUIA_Listview_List, Object->ListEtats,
  315.     End;
  316.  
  317.     Etats = GroupObject,
  318.         MUIA_HelpNode, "Etats",
  319.         Child, Object->ListEtats,
  320.     End;
  321.  
  322.     Object->ListJournal = ListObject,
  323.         MUIA_Frame, MUIV_Frame_InputList,
  324.         MUIA_List_Title, TRUE,
  325.         MUIA_List_Format, "BAR,BAR,BAR,BAR,BAR,BAR,BAR,",
  326.         MUIA_List_DisplayHook, &DisplayHookEvenementsHook,
  327.     End;
  328.  
  329.     Object->ListJournal = ListviewObject,
  330.         MUIA_HelpNode, "ListJournal",
  331.         MUIA_Listview_List, Object->ListJournal,
  332.     End;
  333.  
  334.     Journal = GroupObject,
  335.         MUIA_HelpNode, "Journal",
  336.         Child, Object->ListJournal,
  337.     End;
  338.  
  339.     Object->ChoixTraces = CycleObject,
  340.         MUIA_HelpNode, "ChoixTraces",
  341.         MUIA_Cycle_Entries, Object->ChoixTracesContent,
  342.     End;
  343.  
  344.     Object->Trace_DateStart = StringObject,
  345.         MUIA_Weight, 80,
  346.         MUIA_Frame, MUIV_Frame_String,
  347.         MUIA_HelpNode, "Trace_DateStart",
  348.         MUIA_String_Contents, "01/01/1978",
  349.         MUIA_String_MaxLen, 11,
  350.         MUIA_String_Format, MUIV_String_Format_Center,
  351.     End;
  352.  
  353.     Object->Trace_TimeStart = StringObject,
  354.         MUIA_Weight, 60,
  355.         MUIA_Frame, MUIV_Frame_String,
  356.         MUIA_HelpNode, "Trace_TimeStart",
  357.         MUIA_String_Contents, "00:00",
  358.         MUIA_String_MaxLen, 6,
  359.         MUIA_String_Format, MUIV_String_Format_Center,
  360.     End;
  361.  
  362.     Object->Trace_RangeDown = TextObject,
  363.         ButtonFrame,
  364.         MUIA_Weight, 20,
  365.         MUIA_Background, MUII_ButtonBack,
  366.         MUIA_Text_Contents, "<",
  367.         MUIA_Text_PreParse, "\033c",
  368.         MUIA_HelpNode, "Trace_RangeDown",
  369.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  370.     End;
  371.  
  372.     Object->Trace_Range = CycleObject,
  373.         MUIA_HelpNode, "Trace_Range",
  374.         MUIA_Cycle_Entries, Object->Trace_RangeContent,
  375.     End;
  376.  
  377.     Object->Trace_RangeUp = TextObject,
  378.         ButtonFrame,
  379.         MUIA_Weight, 20,
  380.         MUIA_Background, MUII_ButtonBack,
  381.         MUIA_Text_Contents, ">",
  382.         MUIA_Text_PreParse, "\033c",
  383.         MUIA_HelpNode, "Trace_RangeUp",
  384.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  385.     End;
  386.  
  387.     Object->Trace_DateEnd = StringObject,
  388.         MUIA_Weight, 80,
  389.         MUIA_Frame, MUIV_Frame_String,
  390.         MUIA_HelpNode, "Trace_DateEnd",
  391.         MUIA_String_Contents, "01/01/1978",
  392.         MUIA_String_MaxLen, 11,
  393.         MUIA_String_Format, MUIV_String_Format_Center,
  394.     End;
  395.  
  396.     Object->Trace_TimeEnd = StringObject,
  397.         MUIA_Weight, 60,
  398.         MUIA_Frame, MUIV_Frame_String,
  399.         MUIA_HelpNode, "Trace_TimeEnd",
  400.         MUIA_String_Contents, "00:00",
  401.         MUIA_String_MaxLen, 6,
  402.         MUIA_String_Format, MUIV_String_Format_Center,
  403.     End;
  404.  
  405.     GR_TRACES_TEMPS = GroupObject,
  406.         MUIA_HelpNode, "GR_TRACES_TEMPS",
  407.         MUIA_Group_Columns, 7,
  408.         Child, Object->Trace_DateStart,
  409.         Child, Object->Trace_TimeStart,
  410.         Child, Object->Trace_RangeDown,
  411.         Child, Object->Trace_Range,
  412.         Child, Object->Trace_RangeUp,
  413.         Child, Object->Trace_DateEnd,
  414.         Child, Object->Trace_TimeEnd,
  415.     End;
  416.  
  417.     GR_TRACES_SEL = GroupObject,
  418.         MUIA_HelpNode, "GR_TRACES_SEL",
  419.         Child, Object->ChoixTraces,
  420.         Child, GR_TRACES_TEMPS,
  421.     End;
  422.  
  423.     Object->ListTraceNum = ListObject,
  424.         MUIA_Frame, MUIV_Frame_InputList,
  425.         MUIA_List_Format, "BAR,BAR,",
  426.         MUIA_List_DisplayHook, &DisplayHookTraceNumHook,
  427.     End;
  428.  
  429.     Object->ListTraceNum = ListviewObject,
  430.         MUIA_HelpNode, "ListTraceNum",
  431.         MUIA_Listview_List, Object->ListTraceNum,
  432.     End;
  433.  
  434. //MLD
  435.   Object->GraphTrace = NewObject(mccgraph->mcc_Class,NULL,
  436.         TextFrame,
  437.         MUIA_Background, MUII_BACKGROUND,
  438.         TAG_DONE),
  439.  
  440.     TracesNumerique = GroupObject,
  441.         MUIA_HelpNode, "TracesNumerique",
  442.         Child, Object->ListTraceNum,
  443.     End;
  444.  
  445.     TracesGraphique = GroupObject,
  446.         MUIA_HelpNode, "TracesGraphique",
  447.     Child, Object->GraphTrace,  //MLD
  448.     End;
  449.  
  450.     Object->GR_TRACES_MODE = RegisterObject,
  451.         MUIA_Register_Titles, Object->STR_GR_TRACES_MODE,
  452.         MUIA_HelpNode, "GR_TRACES_MODE",
  453.         Child, TracesNumerique,
  454.         Child, TracesGraphique,
  455.     End;
  456.  
  457.     Traces = GroupObject,
  458.         MUIA_HelpNode, "Traces",
  459.         Child, GR_TRACES_SEL,
  460.         Child, Object->GR_TRACES_MODE,
  461.     End;
  462.  
  463.     GR_grp_VISU = RegisterObject,
  464.         MUIA_Register_Titles, Object->STR_GR_grp_VISU,
  465.         MUIA_HelpNode, "GR_grp_VISU",
  466.         Child, Messages,
  467.         Child, Etats,
  468.         Child, Journal,
  469.         Child, Traces,
  470.     End;
  471.  
  472.     Object->Connect = TextObject,
  473.         ButtonFrame,
  474.         MUIA_Weight, 14,
  475.         MUIA_Background, MUII_ButtonBack,
  476.         MUIA_Text_Contents, "Connexion",
  477.         MUIA_Text_PreParse, "\033c",
  478.         MUIA_HelpNode, "Connect",
  479.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  480.     End;
  481.  
  482.     Object->Disconnect = TextObject,
  483.         ButtonFrame,
  484.         MUIA_Weight, 15,
  485.         MUIA_Background, MUII_ButtonBack,
  486.         MUIA_Text_Contents, "Déconnexion",
  487.         MUIA_Text_PreParse, "\033c",
  488.         MUIA_HelpNode, "Disconnect",
  489.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  490.     End;
  491.  
  492.     Object->ComState = TextObject,
  493.         MUIA_Background, MUII_TextBack,
  494.         MUIA_Frame, MUIV_Frame_Text,
  495.         MUIA_Text_Contents, Object->STR_ComState,
  496.         MUIA_Text_SetMin, TRUE,
  497.     End;
  498.  
  499.     Object->ComTime = TextObject,
  500.         MUIA_Weight, 7,
  501.         MUIA_Background, MUII_TextBack,
  502.         MUIA_Frame, MUIV_Frame_Text,
  503.         MUIA_Text_Contents, Object->STR_ComTime,
  504.         MUIA_Text_SetMin, TRUE,
  505.     End;
  506.  
  507.     GR_grp_CNX = GroupObject,
  508.         MUIA_HelpNode, "GR_grp_CNX",
  509.         MUIA_Group_Columns, 4,
  510.         MUIA_Group_SameHeight, TRUE,
  511.         MUIA_Group_HorizSpacing, 10,
  512.         Child, Object->Connect,
  513.         Child, Object->Disconnect,
  514.         Child, Object->ComState,
  515.         Child, Object->ComTime,
  516.     End;
  517.  
  518.     GROUP_ROOT_0 = GroupObject,
  519.         Child, GR_grp_INFOS,
  520.         Child, GR_grp_TELPSW,
  521.         Child, GR_grp_VISU,
  522.         Child, GR_grp_CNX,
  523.     End;
  524.  
  525.     MNlabel1About = MenuitemObject,
  526.         MUIA_Menuitem_Title, "A propos",
  527.         MUIA_Menuitem_Shortcut, "?",
  528.     End;
  529.  
  530.     MNlabel1AboutMUI = MenuitemObject,
  531.         MUIA_Menuitem_Title, "A propos de MUI",
  532.     End;
  533.  
  534.     MNlabel1BarLabel0 = MUI_MakeObject(MUIO_Menuitem, NM_BARLABEL, 0, 0, 0);
  535.  
  536.     MNlabel1Quit = MenuitemObject,
  537.         MUIA_Menuitem_Title, "Quitter",
  538.         MUIA_Menuitem_Shortcut, "Q",
  539.     End;
  540.  
  541.     MNlabel1Project = MenuitemObject,
  542.         MUIA_Menuitem_Title, "Projet",
  543.         MUIA_Family_Child, MNlabel1About,
  544.         MUIA_Family_Child, MNlabel1AboutMUI,
  545.         MUIA_Family_Child, MNlabel1BarLabel0,
  546.         MUIA_Family_Child, MNlabel1Quit,
  547.     End;
  548.  
  549.     MNlabel1Prefs = MenuitemObject,
  550.         MUIA_Menuitem_Title, "Prefs",
  551.         MUIA_Menuitem_Shortcut, "P",
  552.     End;
  553.  
  554.     MNlabel1PrefsMUI = MenuitemObject,
  555.         MUIA_Menuitem_Title, "Prefs MUI",
  556.     End;
  557.  
  558.     MNlabel1Settings = MenuitemObject,
  559.         MUIA_Menuitem_Title, "Réglages",
  560.         MUIA_Family_Child, MNlabel1Prefs,
  561.         MUIA_Family_Child, MNlabel1PrefsMUI,
  562.     End;
  563.  
  564.     Object->MN_label_1 = MenustripObject,
  565.         MUIA_Family_Child, MNlabel1Project,
  566.         MUIA_Family_Child, MNlabel1Settings,
  567.     End;
  568.  
  569.     Object->WI_Main = WindowObject,
  570.         MUIA_Window_Title, "ClipWatch",
  571.         MUIA_Window_Menustrip, Object->MN_label_1,
  572.         MUIA_Window_ID, MAKE_ID('0', 'W', 'I', 'N'),
  573.         WindowContents, GROUP_ROOT_0,
  574.     End;
  575.  
  576.     Object->Prefs_InitStringModem = StringObject,
  577.         MUIA_Frame, MUIV_Frame_String,
  578.         MUIA_HelpNode, "Prefs_InitStringModem",
  579.     End;
  580.  
  581.     obj_aux21 = Label2("Chaîne d'init. du modem");
  582.  
  583.     obj_aux20 = GroupObject,
  584.         MUIA_Group_Columns, 2,
  585.         Child, obj_aux21,
  586.         Child, Object->Prefs_InitStringModem,
  587.     End;
  588.  
  589.     Object->Prefs_Device = StringObject,
  590.         MUIA_Frame, MUIV_Frame_String,
  591.         MUIA_HelpNode, "Prefs_Device",
  592.     End;
  593.  
  594.     obj_aux23 = Label2("Device");
  595.  
  596.     obj_aux22 = GroupObject,
  597.         MUIA_Group_Columns, 2,
  598.         Child, obj_aux23,
  599.         Child, Object->Prefs_Device,
  600.     End;
  601.  
  602.     Space_9 = HSpace(20);
  603.  
  604.     Object->Prefs_Unit = StringObject,
  605.         MUIA_Frame, MUIV_Frame_String,
  606.         MUIA_HelpNode, "Prefs_Unit",
  607.         MUIA_String_Accept, "-0123456789",
  608.     End;
  609.  
  610.     obj_aux25 = Label2("Unité");
  611.  
  612.     obj_aux24 = GroupObject,
  613.         MUIA_Group_Columns, 2,
  614.         MUIA_Weight, 20,
  615.         Child, obj_aux25,
  616.         Child, Object->Prefs_Unit,
  617.     End;
  618.  
  619.     GR_grp_DeviceUnit = GroupObject,
  620.         MUIA_HelpNode, "GR_grp_DeviceUnit",
  621.         MUIA_Group_Columns, 3,
  622.         Child, obj_aux22,
  623.         Child, Space_9,
  624.         Child, obj_aux24,
  625.     End;
  626.  
  627.     LA_label_vitesse = Label("Vitesse");
  628.  
  629.     Object->Prefs_Vitesse = CycleObject,
  630.         MUIA_HelpNode, "Prefs_Vitesse",
  631.         MUIA_Weight, 46,
  632.         MUIA_Cycle_Entries, Object->Prefs_VitesseContent,
  633.     End;
  634.  
  635.     LA_label_bps = Label("bps");
  636.  
  637.     SpaceH_1 = HSpace(120);
  638.  
  639.     GR_grp_Vitesse = GroupObject,
  640.         MUIA_HelpNode, "GR_grp_Vitesse",
  641.         MUIA_Group_Columns, 4,
  642.         Child, LA_label_vitesse,
  643.         Child, Object->Prefs_Vitesse,
  644.         Child, LA_label_bps,
  645.         Child, SpaceH_1,
  646.     End;
  647.  
  648.     SpaceV_1 = VSpace(3);
  649.  
  650.     REC_label_6CC = RectangleObject,
  651.         MUIA_Rectangle_HBar, TRUE,
  652.         MUIA_FixHeight, 2,
  653.     End;
  654.  
  655.     SpaceV_2 = VSpace(3);
  656.  
  657.     Object->Prefs_RecupJournal = CheckMark(FALSE);
  658.  
  659.     obj_aux27 = Label2("Rapatriement du journal des événements");
  660.  
  661.     obj_aux26 = GroupObject,
  662.         MUIA_Group_Columns, 2,
  663.         Child, obj_aux27,
  664.         Child, Object->Prefs_RecupJournal,
  665.     End;
  666.  
  667.     SpaceH_2 = HSpace(30);
  668.  
  669.     GR_grp_Journal = GroupObject,
  670.         MUIA_HelpNode, "GR_grp_Journal",
  671.         MUIA_Group_Columns, 2,
  672.         Child, obj_aux26,
  673.         Child, SpaceH_2,
  674.     End;
  675.  
  676.     Object->Prefs_RecupTraces = CheckMark(FALSE);
  677.  
  678.     obj_aux29 = Label2("Rapatriement des traces");
  679.  
  680.     obj_aux28 = GroupObject,
  681.         MUIA_Group_Columns, 2,
  682.         Child, obj_aux29,
  683.         Child, Object->Prefs_RecupTraces,
  684.     End;
  685.  
  686.     SpaceH_3 = HSpace(0);
  687.  
  688.     GR_grp_Traces = GroupObject,
  689.         MUIA_HelpNode, "GR_grp_Traces",
  690.         MUIA_Group_Columns, 2,
  691.         Child, obj_aux28,
  692.         Child, SpaceH_3,
  693.     End;
  694.  
  695.     Object->Prefs_RecupMessages = CheckMark(FALSE);
  696.  
  697.     obj_aux31 = Label2("Rapatriement des messages");
  698.  
  699.     obj_aux30 = GroupObject,
  700.         MUIA_Group_Columns, 2,
  701.         Child, obj_aux31,
  702.         Child, Object->Prefs_RecupMessages,
  703.     End;
  704.  
  705.     SpaceH_4 = HSpace(0);
  706.  
  707.     GR_grp_Messages = GroupObject,
  708.         MUIA_HelpNode, "GR_grp_Messages",
  709.         MUIA_Group_Columns, 2,
  710.         Child, obj_aux30,
  711.         Child, SpaceH_4,
  712.     End;
  713.  
  714.     Object->Prefs_Monitor = CheckMark(FALSE);
  715.  
  716.     obj_aux33 = Label2("Moniteur");
  717.  
  718.     obj_aux32 = GroupObject,
  719.         MUIA_Group_Columns, 2,
  720.         Child, obj_aux33,
  721.         Child, Object->Prefs_Monitor,
  722.     End;
  723.  
  724.     Object->Prefs_Monitor_Type = CycleObject,
  725.         MUIA_HelpNode, "Prefs_Monitor_Type",
  726.         MUIA_Cycle_Entries, Object->Prefs_Monitor_TypeContent,
  727.     End;
  728.  
  729.     GR_grp_Monitor = GroupObject,
  730.         MUIA_HelpNode, "GR_grp_Monitor",
  731.         MUIA_Group_Horiz, TRUE,
  732.         Child, obj_aux32,
  733.         Child, Object->Prefs_Monitor_Type,
  734.     End;
  735.  
  736.     SpaceV_3 = VSpace(3);
  737.  
  738.     REC_label_6 = RectangleObject,
  739.         MUIA_Rectangle_HBar, TRUE,
  740.         MUIA_FixHeight, 2,
  741.     End;
  742.  
  743.     SpaceV_4 = VSpace(3);
  744.  
  745.     Object->Prefs_Save = TextObject,
  746.         ButtonFrame,
  747.         MUIA_Weight, 30,
  748.         MUIA_Background, MUII_ButtonBack,
  749.         MUIA_Text_Contents, "Sauver",
  750.         MUIA_Text_PreParse, "\033c",
  751.         MUIA_HelpNode, "Prefs_Save",
  752.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  753.     End;
  754.  
  755.     Object->Prefs_Use = TextObject,
  756.         ButtonFrame,
  757.         MUIA_Weight, 30,
  758.         MUIA_Background, MUII_ButtonBack,
  759.         MUIA_Text_Contents, "Utiliser",
  760.         MUIA_Text_PreParse, "\033c",
  761.         MUIA_HelpNode, "Prefs_Use",
  762.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  763.     End;
  764.  
  765.     Object->Prefs_Cancel = TextObject,
  766.         ButtonFrame,
  767.         MUIA_Weight, 30,
  768.         MUIA_Background, MUII_ButtonBack,
  769.         MUIA_Text_Contents, "Annuler",
  770.         MUIA_Text_PreParse, "\033c",
  771.         MUIA_HelpNode, "Prefs_Cancel",
  772.         MUIA_InputMode, MUIV_InputMode_RelVerify,
  773.     End;
  774.  
  775.     GR_grp_Validation = GroupObject,
  776.         MUIA_HelpNode, "GR_grp_Validation",
  777.         MUIA_Group_Columns, 3,
  778.         Child, Object->Prefs_Save,
  779.         Child, Object->Prefs_Use,
  780.         Child, Object->Prefs_Cancel,
  781.     End;
  782.  
  783.     GROUP_ROOT_1 = GroupObject,
  784.         MUIA_Group_Rows, 14,
  785.         Child, obj_aux20,
  786.         Child, GR_grp_DeviceUnit,
  787.         Child, GR_grp_Vitesse,
  788.         Child, SpaceV_1,
  789.         Child, REC_label_6CC,
  790.         Child, SpaceV_2,
  791.         Child, GR_grp_Journal,
  792.         Child, GR_grp_Traces,
  793.         Child, GR_grp_Messages,
  794.         Child, GR_grp_Monitor,
  795.         Child, SpaceV_3,
  796.         Child, REC_label_6,
  797.         Child, SpaceV_4,
  798.         Child, GR_grp_Validation,
  799.     End;
  800.  
  801.     Object->WI_Prefs = WindowObject,
  802.         MUIA_Window_Title, "Preferences",
  803.         MUIA_Window_ID, MAKE_ID('1', 'W', 'I', 'N'),
  804.         MUIA_Window_NoMenus, TRUE,
  805.         WindowContents, GROUP_ROOT_1,
  806.     End;
  807.  
  808.     Object->ListSavedSites = ListObject,
  809.         MUIA_Frame, MUIV_Frame_InputList,
  810.     End;
  811.  
  812.     Object->ListSavedSites = ListviewObject,
  813.         MUIA_HelpNode, "ListSavedSites",
  814.         MUIA_Listview_List, Object->ListSavedSites,
  815.     End;
  816.  
  817.     GR_grp_25 = GroupObject,
  818.         MUIA_HelpNode, "GR_grp_25",
  819.         Child, Object->ListSavedSites,
  820.     End;
  821.  
  822.     GROUP_ROOT_2 = GroupObject,
  823.         Child, GR_grp_25,
  824.     End;
  825.  
  826.     Object->WI_SelectSite = WindowObject,
  827.         MUIA_Window_Title, "Choisissez un site sauvegardé",
  828.         MUIA_Window_ID, MAKE_ID('2', 'W', 'I', 'N'),
  829.         WindowContents, GROUP_ROOT_2,
  830.     End;
  831.  
  832.     Object->App = ApplicationObject,
  833.         MUIA_Application_Author, "Marc Le Douarain",
  834.         MUIA_Application_Base, "ClipWatch",
  835.         MUIA_Application_Title, "ClipWatch",
  836.         MUIA_Application_Version, "$VER: ClipWatch " VERSION "  " COMPILATION_DATE,
  837.         MUIA_Application_Copyright, "Copyright 1999 Marc Le Douarain (mavati@club-internet.fr)",
  838.         MUIA_Application_Description, "Utilitaire pour télétrans Clip/Force",
  839. //        MUIA_HelpFile, "ClipWatch_gui.guide",
  840.         SubWindow, Object->WI_Main,
  841.         SubWindow, Object->WI_Prefs,
  842.         SubWindow, Object->WI_SelectSite,
  843.     End;
  844.  
  845.  
  846.     if (!Object->App)
  847.     {
  848.         FreeVec(Object);
  849.         return(NULL);
  850.     }
  851.  
  852.     DoMethod(MNlabel1About,
  853.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  854.         Object->App,
  855.         2,
  856.         MUIM_Application_ReturnID, ID_MENU_ABOUT
  857.         );
  858.  
  859.     DoMethod(MNlabel1AboutMUI,
  860.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  861.         Object->App,
  862.         2,
  863.         MUIM_Application_ReturnID, ID_MENU_ABOUTMUI
  864.         );
  865.  
  866.     DoMethod(MNlabel1Quit,
  867.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  868.         Object->WI_Main,
  869.         3,
  870.         MUIM_Set, MUIA_Window_Open, FALSE
  871.         );
  872.  
  873.     DoMethod(MNlabel1Quit,
  874.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  875.         Object->App,
  876.         2,
  877.         MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  878.         );
  879.  
  880.     DoMethod(MNlabel1Prefs,
  881.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  882.         Object->App,
  883.         2,
  884.         MUIM_Application_ReturnID, ID_PREFS_WINDOWOPENED
  885.         );
  886.  
  887.     DoMethod(MNlabel1Prefs,
  888.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  889.         Object->WI_Prefs,
  890.         3,
  891.         MUIM_Set, MUIA_Window_Open, TRUE
  892.         );
  893.  
  894.     DoMethod(MNlabel1PrefsMUI,
  895.         MUIM_Notify, MUIA_Menuitem_Trigger, MUIV_EveryTime,
  896.         Object->App,
  897.         2,
  898.         MUIM_Application_ReturnID, ID_MENU_PREFSMUI
  899.         );
  900.  
  901.     DoMethod(Object->WI_Main,
  902.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  903.         Object->WI_Main,
  904.         3,
  905.         MUIM_Set, MUIA_Window_Open, FALSE
  906.         );
  907.  
  908.     DoMethod(Object->WI_Main,
  909.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  910.         Object->App,
  911.         2,
  912.         MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit
  913.         );
  914.  
  915.     DoMethod(Object->SelectSiteSaved,
  916.         MUIM_Notify, MUIA_Pressed, FALSE,
  917.         Object->WI_SelectSite,
  918.         3,
  919.         MUIM_Set, MUIA_Window_Open, TRUE
  920.         );
  921.  
  922.     DoMethod(GR_grp_VISU,
  923.         MUIM_Notify, MUIA_Group_ActivePage, 2,
  924.         Object->WI_Main,
  925.         3,
  926.         MUIM_Set, MUIA_Window_ActiveObject, Object->ListJournal
  927.         );
  928.  
  929.     DoMethod(GR_grp_VISU,
  930.         MUIM_Notify, MUIA_Group_ActivePage, 1,
  931.         Object->WI_Main,
  932.         3,
  933.         MUIM_Set, MUIA_Window_ActiveObject, Object->ListEtats
  934.         );
  935.  
  936.     DoMethod(Object->ChoixTraces,
  937.         MUIM_Notify, MUIA_Cycle_Active, MUIV_EveryTime,
  938.         Object->App,
  939.         2,
  940.         MUIM_Application_ReturnID, ID_TRACE_REFRESH
  941.         );
  942.  
  943.     DoMethod(Object->Trace_DateStart,
  944.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  945.         Object->App,
  946.         2,
  947.         MUIM_Application_ReturnID, ID_TRACE_START
  948.         );
  949.  
  950.     DoMethod(Object->Trace_TimeStart,
  951.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  952.         Object->App,
  953.         2,
  954.         MUIM_Application_ReturnID, ID_TRACE_START
  955.         );
  956.  
  957.     DoMethod(Object->Trace_RangeDown,
  958.         MUIM_Notify, MUIA_Pressed, FALSE,
  959.         Object->App,
  960.         2,
  961.         MUIM_Application_ReturnID, ID_TRACE_RANGEDOWN
  962.         );
  963.  
  964.     DoMethod(Object->Trace_Range,
  965.         MUIM_Notify, MUIA_Cycle_Active, MUIV_EveryTime,
  966.         Object->App,
  967.         2,
  968.         MUIM_Application_ReturnID, ID_TRACE_NEWRANGE
  969.         );
  970.  
  971.     DoMethod(Object->Trace_RangeUp,
  972.         MUIM_Notify, MUIA_Pressed, FALSE,
  973.         Object->App,
  974.         2,
  975.         MUIM_Application_ReturnID, ID_TRACE_RANGEUP
  976.         );
  977.  
  978.     DoMethod(Object->Trace_DateEnd,
  979.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  980.         Object->App,
  981.         2,
  982.         MUIM_Application_ReturnID, ID_TRACE_END
  983.         );
  984.  
  985.     DoMethod(Object->Trace_TimeEnd,
  986.         MUIM_Notify, MUIA_String_Acknowledge, MUIV_EveryTime,
  987.         Object->App,
  988.         2,
  989.         MUIM_Application_ReturnID, ID_TRACE_END
  990.         );
  991.  
  992.     DoMethod(Object->Connect,
  993.         MUIM_Notify, MUIA_Pressed, FALSE,
  994.         Object->App,
  995.         2,
  996.         MUIM_Application_ReturnID, ID_BUTTON_CONNECT
  997.         );
  998.  
  999.     DoMethod(Object->Disconnect,
  1000.         MUIM_Notify, MUIA_Pressed, FALSE,
  1001.         Object->App,
  1002.         2,
  1003.         MUIM_Application_ReturnID, ID_BUTTON_DISCONNECT
  1004.         );
  1005.  
  1006.     DoMethod(Object->WI_Main,
  1007.         MUIM_Window_SetCycleChain, Object->SelectSiteSaved,
  1008.         Object->NumTelephone,
  1009.         Object->Password,
  1010.         Object->MessageTextNum0,
  1011.         Object->MessageTextNum1,
  1012.         Object->MessageTextNum2,
  1013.         Object->MessageTextNum3,
  1014.         Object->MessageTextNum4,
  1015.         Object->MessageTextNum5,
  1016.         Object->MessageTextNum6,
  1017.         Object->MessageTextNum7,
  1018.         Object->ListEtats,
  1019.         Object->ListJournal,
  1020.         Object->ChoixTraces,
  1021.         Object->Trace_DateStart,
  1022.         Object->Trace_TimeStart,
  1023.         Object->Trace_RangeDown,
  1024.         Object->Trace_Range,
  1025.         Object->Trace_RangeUp,
  1026.         Object->Trace_DateEnd,
  1027.         Object->Trace_TimeEnd,
  1028.         Object->GR_TRACES_MODE,
  1029.         Object->ListTraceNum,
  1030.         Object->Connect,
  1031.         Object->Disconnect,
  1032.         0
  1033.         );
  1034.  
  1035.     DoMethod(Object->WI_Prefs,
  1036.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  1037.         Object->WI_Prefs,
  1038.         3,
  1039.         MUIM_Set, MUIA_Window_Open, FALSE
  1040.         );
  1041.  
  1042.     DoMethod(Object->Prefs_Save,
  1043.         MUIM_Notify, MUIA_Pressed, FALSE,
  1044.         Object->WI_Prefs,
  1045.         3,
  1046.         MUIM_Set, MUIA_Window_Open, FALSE
  1047.         );
  1048.  
  1049.     DoMethod(Object->Prefs_Save,
  1050.         MUIM_Notify, MUIA_Pressed, FALSE,
  1051.         Object->App,
  1052.         2,
  1053.         MUIM_Application_ReturnID, ID_PREFS_CHANGED
  1054.         );
  1055.  
  1056.     DoMethod(Object->Prefs_Save,
  1057.         MUIM_Notify, MUIA_Pressed, FALSE,
  1058.         Object->App,
  1059.         2,
  1060.         MUIM_Application_ReturnID, ID_PREFS_TOSAVE
  1061.         );
  1062.  
  1063.     DoMethod(Object->Prefs_Use,
  1064.         MUIM_Notify, MUIA_Pressed, FALSE,
  1065.         Object->WI_Prefs,
  1066.         3,
  1067.         MUIM_Set, MUIA_Window_Open, FALSE
  1068.         );
  1069.  
  1070.     DoMethod(Object->Prefs_Use,
  1071.         MUIM_Notify, MUIA_Pressed, FALSE,
  1072.         Object->App,
  1073.         2,
  1074.         MUIM_Application_ReturnID, ID_PREFS_CHANGED
  1075.         );
  1076.  
  1077.     DoMethod(Object->Prefs_Cancel,
  1078.         MUIM_Notify, MUIA_Pressed, FALSE,
  1079.         Object->WI_Prefs,
  1080.         3,
  1081.         MUIM_Set, MUIA_Window_Open, FALSE
  1082.         );
  1083.  
  1084.     DoMethod(Object->WI_Prefs,
  1085.         MUIM_Window_SetCycleChain, Object->Prefs_InitStringModem,
  1086.         Object->Prefs_Device,
  1087.         Object->Prefs_Unit,
  1088.         Object->Prefs_Vitesse,
  1089.         Object->Prefs_RecupJournal,
  1090.         Object->Prefs_RecupTraces,
  1091.         Object->Prefs_RecupMessages,
  1092.         Object->Prefs_Monitor,
  1093.         Object->Prefs_Monitor_Type,
  1094.         Object->Prefs_Save,
  1095.         Object->Prefs_Use,
  1096.         Object->Prefs_Cancel,
  1097.         0
  1098.         );
  1099.  
  1100.     DoMethod(Object->WI_SelectSite,
  1101.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  1102.         Object->App,
  1103.         2,
  1104.         MUIM_Application_ReturnID, ID_SAVED_SITE_LOAD
  1105.         );
  1106.  
  1107.     DoMethod(Object->WI_SelectSite,
  1108.         MUIM_Notify, MUIA_Window_CloseRequest, TRUE,
  1109.         Object->WI_SelectSite,
  1110.         3,
  1111.         MUIM_Set, MUIA_Window_Open, FALSE
  1112.         );
  1113.  
  1114.     DoMethod(Object->ListSavedSites,
  1115.         MUIM_Notify, MUIA_List_Active, MUIV_EveryTime,
  1116.         Object->App,
  1117.         2,
  1118.         MUIM_Application_ReturnID, ID_SAVED_SITE_SELECTED
  1119.         );
  1120.  
  1121.     DoMethod(Object->WI_SelectSite,
  1122.         MUIM_Window_SetCycleChain, Object->ListSavedSites,
  1123.         0
  1124.         );
  1125.  
  1126.     set(Object->WI_Main,
  1127.         MUIA_Window_Open, TRUE
  1128.         );
  1129.  
  1130.  
  1131.     return(Object);
  1132. }
  1133.  
  1134. void DisposeApp(struct ObjApp * Object)
  1135. {
  1136.     MUI_DisposeObject(Object->App);
  1137.     FreeVec(Object);
  1138. }
  1139.